data segment
	STUDENT_NAME	DB	30	DUP(?)
	STUDENT_ADDR	DB	9       DUP(?)
	PRINT_LINE	DB	132	DUP(?)
data ends

code segment
main proc far
	assume cs:code,ds:data,es:data

start:
	push ds
	sub ax,ax
	push ax
	mov ax,data
	mov ds,ax
	mov es,ax
	mov cx,132
	lea di,STUDENT_NAME
	lea si,PRINT_LINE

next:
	mov al,[di]
	mov [si],al
	inc si
	inc di
	dec cx
	jnz next 

	mov cx,9
	lea di,[STUDENT_ADDR+8] 	
	lea si,[PRINT_LINE+131]
goon:
	mov al,[di]
	mov [si],al
	dec,si
	dec,di
	dec,cx
	jnz goon

	ret
main endp
code ends
	end start
